COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 LISP DEBUGGING PACKAGE.
C00013 ENDMK
C⊗;
;;; LISP DEBUGGING PACKAGE.
;;; SETS UP AUTOLOAD POINTERS TO NUMEROUS DEBUGGING FUNCTIONS.

(DECLARE (*EXPR READLUSER))
(DEFUN HELP FEXPR (NAMES) 
       (COND ((NULL NAMES)
	      'Right!)
	     (T (DO ((NAMES NAMES (CDR NAMES))
		     (INFO))
		    ((NULL NAMES) T)
		    (TERPRI)
		    (COND ((SETQ INFO (GET (CAR NAMES) 'HELP))
			   (PRINC INFO))
			  (T (PRINC '|No information about |)(PRINC (CAR NAMES))))
		    (TERPRI))))) 

(DEFUN USERP (X)(COND ((ATOM X)
		       (EQ X (CADR (STATUS UNAME))))
		      (T (MEMQ (CADR (STATUS UNAME)) X))))
 
(DEFUN AUTOLOAD FEXPR (X) 
       (AND X
   	    (MAPC '(LAMBDA (F) (OR (FBOUNDP F)
				   (PROGN (REMPROP F 'AUTOLOAD)
					  (PUTPROP F (CADR X) 'AUTOLOAD))))
		  (OR (AND (ATOM (CAR X)) (NCONS (CAR X))) (CAR X)))
	    (APPLY 'AUTOLOAD (CDDR X)))) 

(COND ((STATUS NOFEATURES NEWIO)
(AUTOLOAD (DEBUG BT) (DEBUG FAS DSK (MAC LSP))
	  (MATCH-MACRO MACRODEF MACROBIND TRANSDEF TRANS CODE %%EXPAND%% MACROBIND 
		 %%DESTRUCTURIFY%%)
		(MACROD FAS DSK (MAC LSP))
	  (FOR WHILE UNTIL) (UTIL FAS DSK (AID LSP))
	  (TTIME)(TTIME FAS DSK (MAC LSP))
	  (DEFSTRUCT DEFSTRUCT-EXPAND-CONS-MACRO)(STRUCT FAS DSK (MAC LSP))
	  (PRLISP PRECESS)(PRLISP FAS DSK (MAC LSP))
	  (MACEX CHARTRAN COUNT-LINES COUNT-SEXPRS)(MACEX FAS DSK (MAC LSP))
	  (%MATCH %CONTINUE-MATCH)(MATCH FAS DSK (MAC LSP))
	  (%UMATCH %UCONTINUE-MATCH)(UMATCH FAS DSK (MAC LSP))
	  (STEP STEP-HARD BREAKIF) (STEP FAS DSK (MAC LSP))
	  (REVIEW INDEX SILENT-REVIEW SILENT-INDEX) (INDEX FAS DSK (MAC LSP))
	  (REQUIRE)(REQUIRE FAS DSK (OLD LSP))
	  (TRACE)(TRACE FAS DSK (OLD LSP))
	  (ALARMCLOCK) (ALARM FAS DSK (MAC LSP))
	  (HIST TIMIT NTIMIT UNCDR1 UNCDR* 
 	   SETUP BS FS) (BS FAS DSK (MAC LSP))
	  (SYSTEM)(SYSTEM FAS DSK (MAC LSP))
	  (CGOL) (CGOL FAS DSK (MAC LSP))
	  (CGOLPRINT CGOLPRIN1) (CGPRIN FAS DSK (MAC LSP))
	  (LAP)(LAP FAS DSK (OLD LSP))
	  (BRAKEIF BRK UNBRK BRAKE UNBRAKE) (BRAKE FAS DSK (MAC LSP))
	  (LOSE)(LOSE FAS DSK (AID LSP))
	  (EREAD ELOAD EL MEL EDEL)(EREAD FAS DSK (OLD LSP))
	  (BOXIT SMALL-FONT)(BOXER FAS DSK (THE RPG))
	  (ASSIGN-CHANNEL RELEASE-CHANNEL)(CHAN FAS DSK (AID LSP))
	  (TRACEQ)(TRACEQ FAS DSK (MAC LSP))
	  (KEEP)(KEEP FAS DSK (MAC LSP))
	  (BEEP)(BEEP FAS DSK (MAC LSP))
	  (UNBRACKET)(UNBRAC FAS DSK (MAC LSP))
          (READLUSER)(DIRHAK FAS DSK (LIB LSP))
	  (LOAD-REDO)(LD-RED FAS DSK (MAC LSP))
	  (TETV ET JET JETV)(ET FAS DSK (MAC LSP))
	  (CFORK SFORK)(FASFRK FAS DSK (LIB LSP))
	  (GMSG MSG FORK-SUSPEND FORKME MAIL?) (NEWFRK FAS DSK (LIB LSP))
	  (MAIL)(MAIL FAS DSK (MAC LSP))
	  (LOADCR LOADED ADDED INITED)(LOADED FAS DSK (MAC LSP))
	  (EDIT %EVALUATE EDITV EDITP %DATA-INIT %GETNAME EDIT1 RE-EDIT EDIT2)
	   (EDIT FAS DSK (OLD LSP))))

(t (defun esci-enb () ())
   (AUTOLOAD (DEBUG BT) (DEBUG FAS DSK (MAC LSP))
	     (MATCH-MACRO MACRODEF MACROBIND TRANSDEF TRANS CODE %%EXPAND%% MACROBIND 
		    %%DESTRUCTURIFY%%)
	     (MACROD FAS DSK (MAC LSP))
	  (FOR WHILE UNTIL) (UTIL FAS DSK (AID LSP))
	  (PRLISP PRECESS)(PRLISP FAS DSK (MAC LSP))
	  (DEFSTRUCT DEFSTRUCT-EXPAND-CONS-MACRO)(STRUCT FAS DSK (MAC LSP))
	  (MACEX CHARTRAN COUNT-LINES COUNT-SEXPRS)(MACEX FAS DSK (MAC LSP))
	  (STEP STEP-HARD BREAKIF) (STEP FAS DSK (MAC LSP))
	  (REVIEW INDEX SILENT-REVIEW SILENT-INDEX) (INDEX FAS DSK (MAC LSP))
	  (INPUSH INPOP)(STACK FAS DSK (MAC LSP))
	  (GC-OVERFLOW-DAEMON)((DSK (MAC LSP))DEMON FAS)
	  (REQUIRE)(REQUIRE FAS DSK (MAC LSP))
	  (REQUIRE-ALL)(REQALL FAS DSK (MAC LSP))
	  (SOSP)(SOSP FAS DSK (AID LSP))
	  (DRONGOP CLOSET-DRONGOP TURKEYP)(DRONGO FAS DSK (AID LSP))
	  (CLOSER CLOSEALL)(CLOSE FAS DSK (MAC LSP))
	  (ALARMCLOCK) (ALARM FAS DSK (MAC LSP))
	  (LOSE)(LOSE FAS DSK (AID LSP))
	  (HIST TIMIT NTIMIT UNCDR1 UNCDR* 
 	   SETUP BS FS) (BS FAS DSK (MAC LSP))
	  (SYSTEM)(SYSTEM FAS DSK (MAC LSP))
	  (%MATCH %CONTINUE-MATCH)(MATCH FAS DSK (MAC LSP))
	  (%UMATCH %UCONTINUE-MATCH)(UMATCH FAS DSK (MAC LSP))
	  (CGOL) (CGOL FAS DSK (MAC LSP))
	  (CGOLPRINT CGOLPRIN1) (CGPRIN FAS DSK (MAC LSP))
	  (TTIME)(TTIME FAS DSK (MAC LSP))
	  (ELOAD EL MEL EDEL)(EREAD FAS DSK (MAC LSP))
	  (PRE-POX FPRE-POX READ-TRANSFORMATION-FILE)(PREPOX FAS DSK (LSP RPG))
	  (KEEP)(KEEP FAS DSK (MAC LSP))
	  (BRAKEIF BRK UNBRK BRAKE UNBRAKE) (BRAKE FAS DSK (MAC LSP))
	  (TRACEQ)(TRACEQ FAS DSK (MAC LSP))
	  (BEEP)(BEEP FAS DSK (MAC LSP))
	  (UNBRACKET)(UNBRAC FAS DSK (MAC LSP))
	  (ESC-ENB)(ESCI FAS DSK (MAC LSP))
	  (DIR DIRECT UGREAT URENAME)(DIRECT FAS DSK (MAC LSP))
          (READLUSER)(DIRHAK FAS DSK (LIB LSP))
	  (LOAD-REDO)(LD-RED FAS DSK (MAC LSP))
	  (TETV ET)(ET FAS DSK (LIB LSP))
	  (CFORK SFORK)(FASFRK FAS DSK (LIB LSP))
	  (GMSG MSG FORK-SUSPEND FORKME MAIL?) (NEWFRK FAS DSK (LIB LSP))
	  (BOXIT SMALL-FONT)(BOXER FAS DSK (THE RPG))
	  (DIR DIRECT UGREAT1 UGREAT URENAME)(DIRECT FAS DSK (MAC LSP))
	  (MAIL)(MAIL FAS DSK (MAC LSP))
	  (LOADCR LOADED ADDED INITED)(LOADED FAS DSK (MAC LSP))
	  (%EVALUATE EDITV EDITP %DATA-INIT %GETNAME EDIT1 RE-EDIT EDIT2)(EDIT FAS DSK (MAC LSP)))))

;(OR  (USERP 'RPG)
;     (SETSYNTAX '/" 'MACRO '%%%STRING%%%)

;(DEFUN %%%STRING%%% ()
;	  (PROG (CHAR STRING LF)
;		(SETQ LF (ASCII 12))
;		(SETQ STRING NIL)
;	   A    (SETQ CHAR (READCH))
;		(COND ((EQ CHAR (QUOTE /")) 
;	   	       (COND ((NOT (= (TYIPEEK) 42)) (GO B)) 
;			     (T (READCH)))))
;	 	(OR (EQ CHAR LF)
;		    (SETQ STRING (CONS CHAR STRING)))
;		(GO A)
;	   B    (RETURN (IMPLODE (NREVERSE STRING)))
;		))  

(SETSYNTAX 504 'SPLICING 'CMD-MACRO)	;; meta-D is directory feature
(DEFUN CMD-MACRO () (PRINC '|irectory: |) (READLUSER) (ASCII 0))  


(declare (special ecalledp))
(defun ECALLEDP () ecalledp)